home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / asm / Tandem2.68.lha / Tandem / Teaching / 68.asm < prev    next >
Assembly Source File  |  2000-04-02  |  640b  |  31 lines
  1. * 68.asm  TLprefs     version 0.01     8.6.99
  2.  
  3.  
  4.  include 'Front.i'
  5.  
  6.  
  7. ; TLprefs puts up a requester with lots of built-in help &c to allow the
  8. ; user to set prefernces for the tandem.lubrary GUI. You can choose whether
  9. ; to also allow the user to change the colour palette. Note that Multiline
  10. ; has "GUI Preferences" in its Project menu, which calls TLprefs.
  11.  
  12.  
  13. strings: dc.b 0
  14.  dc.b 'Error: out of memory',0 ;1
  15.  ds.w 0
  16.  
  17.  
  18. * demonstrate TLprefs
  19. Program:
  20.  TLwindow #-1
  21.  beq Pr_bad
  22.  
  23.  TLprefs                    ;or "TLprefs color" to allow palette select
  24.  bra.s Pr_quit
  25.  
  26. Pr_bad:                     ;here if out of mem
  27.  TLbad #1
  28.  
  29. Pr_quit:
  30.  rts
  31.